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Message Text 


INFO OCT-01 EA-12 ISO-OO OPR-02 VOE-OO CA-01 /017W 

101610 031512Z/40 

R 030527Z MAR 78 
FM AEMBASSY SEOUL 
TO SECSTATE WASHDC 9636 
AMEMBASSY BANGKOK 


UNCLAS SEOUL 1725 


BANGKOK FOR FADPC 


E.O. 11652: N/A 
TAGS: AINF 

SUBJECT: NAMREB: COMPUTER SYSTEM CHANGES, PART II 
REF: SEOUL 1166 


1 . THE FOLLOWING PROGRAM AND DICTIONARY CHANGES ARE ON PROGRAM 
PACK POUCHED TO ISO 28 FEBRUARY. 


A. RE PARA 6 REFTEL: SELECTOR #20, VISA SYSTEM MANAGEMENT, 
MODIFIED AS FOLLOWS: OLD VISA FILE ACCESS SELECTIONS, NUMBERS 
9 THROUGH 12, EACH HAVE A NEW CONTROLLED FILE ACCESS ENTRY 
ADDED PRECEDING THEM. THESE NEW ENTRIES HAVE A PASS PARM 
OF R'. A SPECIAL CONTROL MODULE NAMED "CUTV1" WAS CREATED 
BY MODIFYING CUTFA2 LINO 100, 7000, 7010, AND 7030. THIS 

SPECIAL CONTROL MODULE NAME IS ENTERED IN THE DATA DICTIONARY 
FOR FILES 89, 90, 100, 101; 

B. THERE ARE ARE EXTENSIVE CHANGES TO THE BACKUP AND DISC 
LABELING PROGRAMS. THE DISC LABEL PROGRAM IS RENAMED 
"DLABEL" AND THE FORMAT OF NEW DISC LABEL IS AS FOLLOWS: 

DISC LABEL 6 BYTES, DISC DESCRIPTION 16 BYTES, NO. SECTORS 

TO COPY 5 BYTES, VERIFY FLAG 1 BYTE, DATE LAST COPY ATTEMPT 
8 BYTES, PROGRESS OF COPY 1 BYTE, ERROR CODE 9 BYTES, BACKUP 
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OPERATORS INITIALS, 3 BYTES. NO. SECTORS TO COPY MAY BE 

A NUMBER, 'ALL' FOR 19584 OR "CAT 1 ' FOR COPY THROUGH CURRENT 

EPD OF CATALOG. BACKUP PROGRAM CUTBA0 IS MODIFIED TO MINIMINZE 

COPY TIMES - 6 MIN 20 SEC FOR FULL DISC COPY VERSUS 10 MIN 

PLUS USING COPY STATEMENT. ALSO IMPLEMENTED IS DISC ERROR CAPTURE 

AND REPORTING THROUGHOUT BACKUP. CAPABILITY FOR WEEKLY 

BACKUP IMPLEMENTED BY USING THE PASS PARM AS THE SIXTH BYTE 
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OF THE EXPECTED RECEIVING DISC LABEL; I.E. WHERE "LABELP" 

IS LABEL OF PRODUCTION DISK THEN "LABELB" IS DAILY BACKUP 

AND "LABELW" IS WEEKLY BACKUP. PLEASE SEE LAST TWO ENTRIES 

IN SELECTOR DICTIONARY SELECTOR NO. 9, SYSTEM MANAGERS FUNCTIONS. 

C. CHANGES WERE MADE TO LISTER AND SEARCH AND SELECT TO 
ALLOW TERMINATION OF LISTING BY USING S.F. KEY 15 WITHOUT 
DANGER OF INTERRUPTING A KFAM ACCESS. ALL CHANGES ARE TO 
PROGRAM "CUTS&P." 

LINO 7020 CHANGE ALL THREE REF OF LINO 7030 TO LINO 7025 

ADD LINO 7025 SELECT ON/001 GOSUB 8100 

LINO 7090 BEFORE SELECT PRINT ADD SELECT ON Cl F AR 

LINO 7650 AFTER: INIT (" ") E$() ADD : SELECT OFF/001 

AFTER :IFD0 EQUALS 0 THEN GOSUB '39 (0) ADD 

: SELECT ON/001 

LINO 7700 CHANGE :GOSUB TOO TO 
: SELECT OFF/001 
: GOSUB TOO 
: SELECT ON/100 

ADD LINO 8100 KEYIN M5$„ 8110: RETURN 
ADD LINO 81 10 IF VAL (M5$) NE. 15 THEN RETURN 
: RETURN CLEAR: GOTO 7090 

D. DATA DICTIONARY CHANGES 

FILE NO. 75 FIELD NO. 1 - AMERICAN PERSONNEL FIELD 
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SSN - CHANGE PRECISION TO SPACE 
FILE NO. 79 FIELD NO. 1 - DEPENDENT RECORD FIELD 
SSN - CHANGE PRECISION TO SPACE, CHANGE ELEMENT 
TYPE TO 'C'. 

STERN 
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